-- card: 9055 from stack: in
-- bmap block id: 11278
-- flags: 4000
-- background id: 7338
-- name: Segment of a Sphere
----- HyperTalk script -----
on mouseUp
  set numberFormat to <0.000000>

  --Calculate Surface Area of Segment
  get (2*pi*card field "Radius")*card field "Height"
  put it into card field "Surface Area of Segment"

  --Calculate Segment Volume
  get ((1/3)*pi*card field "Height"^2)*(3*card field "Radius" -card field "Height")
  put it into card field "Segment Volume"
end mouseUp


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=312 top=96 right=114 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Radius


-- part 2 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=312 top=119 right=137 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Height


-- part 3 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=319 top=175 right=194 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Surface Area of Segment


-- part 4 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=319 top=213 right=232 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Segment Volume


-- part contents for card part 3
----- text -----
0.785398

-- part contents for card part 4
----- text -----
0.081812

-- part contents for card part 1
----- text -----
.500000

-- part contents for card part 2
----- text -----
.250000